-- background: 53480 from stack: in
-- bmap block id: 53785
-- flags: 4000
-- background id: 0
-- name: Information
----- HyperTalk script -----
on doMenu menuItem
  if menuItem contains "About" then
    lock screen
    hideFields
    get short name of this card
    go back
    unlock screen with dissolve
    wait 1 second
    send "doMenu About" to background it
  else if menuItem is "Home" then
    lock screen
    hideFields
    get short name of this card
    go back
    unlock screen with dissolve
    wait 1 second
    send "doMenu Home" to background it
  else if menuItem contains "Quit" then
    lock screen
    hideFields
    get short name of this card
    go back
    unlock screen with dissolve
    wait 1 second
    send "doMenu Quit" to background it
  else pass doMenu
  --end if
end doMenu


on showFields
  repeat with index = 1 to the number of card fields
    show card field index
  end repeat
end showFields

on hideFields
  repeat with index = 1 to the number of card fields
    hide card field index
  end repeat
end hideFields

on lockAllFields
  go to first card of this background
  repeat with count = 1 to the number of cards of this background
    lockFields
    go next
  end repeat
end lockAllFields

on lockFields
  repeat with index = 1 to the number of card fields
    set locktext of card field index to true
  end repeat
end lockFields

on unlockFields
  repeat with index = 1 to the number of card fields
    set locktext of card field index to false
  end repeat
end unlockFields

on s x
  show card field x
end s

on h x
  hide card field x
end h

on l x
  set locktext of card field x to true
end l

on u x
  set locktext of card field x to false
end u

on center x
  get loc of card field x
  put "255" into item 1 of it
  set loc of card field x to it
end center